home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / iffmst16.lha / IFFMaster / rexx / ShowREXXCommands.rexx < prev   
OS/2 REXX Batch file  |  1996-05-04  |  1KB  |  47 lines
  1. /*
  2. **  $VER: ShowREXXCommands.rexx (23 Mar 1996)  **
  3. **
  4. **        © 1996 Kay Drangmeister
  5. **
  6. **
  7. **  PROGRAMNAME:
  8. **      ShowREXXCommands
  9. **
  10. **  FUNCTION:
  11. **      Displays all IFFMaster REXX commands.
  12. **
  13. **  $HISTORY:
  14. **
  15. **   23 Mar 1996 : 1.0 : initial release
  16. */
  17.  
  18.  
  19. PortName    = 'IFFMASTER.1'           /* portname, usually IFFMASTER.1 */
  20. LF          = '0a'x                   /* linefeed */
  21. iffmpath    = 'IFFMaster'             /* change this to your path */
  22.  
  23. ADDRESS VALUE PortName
  24.  
  25. IFFMACTIVE=1
  26. IF ~SHOW('Ports',PortName) THEN DO
  27.     IFFMACTIVE=0        /* indicate that we did start IFFMaster through the script */
  28.     ADDRESS 'COMMAND' 'Run >NIL: 'iffmpath
  29.     ADDRESS 'COMMAND' 'WaitForPort '||PortName
  30.     IF ~SHOW('Ports',PortName) THEN EXIT 10
  31. END
  32.  
  33.  
  34. temp="env:iffmasterrexxvar"
  35. 'help 'temp
  36. ADDRESS 'COMMAND' 'type 'temp
  37. ADDRESS 'COMMAND' 'delete >NIL: 'temp
  38.  
  39.  
  40. IF IFFMACTIVE=0 THEN DO
  41.     ADDRESS Value portname
  42.     'quit'     /* we started IFFMaster ourselves, so close it */
  43. END
  44.  
  45. EXIT(0)
  46.  
  47.